home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / logtho1a / basloger.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-05  |  1.1 KB  |  38 lines
  1. Attribute VB_Name = "basLogErrors"
  2. Option Explicit
  3.  
  4. '************************************************
  5. '*****PROGRAMMED BY:  THOMAS HUDSON         *****
  6. '*****WWW.HHDATASOLUTIONS.COM               *****
  7. '*****THUDSON@HHDATASOLUTIONS.COM           *****
  8. '************************************************
  9.  
  10. 'REFERENCES
  11. 'Microsoft DAO 3.6 Object Library
  12. 'Microsoft DAO 3.51 Object Library Will work if 3.6 is not available
  13.  
  14. Sub Main()
  15.     frmMain.Show
  16. End Sub
  17.  
  18. Public Sub LogErrors(Frm As String, SubName As String, User As String, _
  19.     ErrNum As Integer, ErrDes As String)
  20.  
  21.     Dim wks As Workspace
  22.     Dim db As Database
  23.     Dim strSQL As String
  24.  
  25.     Const DBPath As String = "C:\database\errorlog.mdb"
  26.     Const DBPass As String = ";pwd=errors"
  27.  
  28.     Set wks = DBEngine.Workspaces(0)
  29.     Set db = wks.OpenDatabase(DBPath, False, False, DBPass)
  30.     strSQL = "INSERT INTO tblErrorLog " _
  31.         & "(UserID, Form, Sub, ErrNumber, ErrDes) VALUES " _
  32.         & "('" & User & "','" & Frm & "','" & SubName & "'," & ErrNum & ",'" & ErrDes & "');"
  33.     db.Execute strSQL
  34.     db.Close
  35.     wks.Close
  36. End Sub
  37.  
  38.